home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 February / 64er_Magazin_90-02_1990_Markt__Technik_de_Side_A.d64 / mini-ass (c)1989 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 30 fori=1to56:readi$:next:dl=peek(65):dh=peek(66):fori=1to12:readi$:next:readpz
  2. 31 z=2:f=0:d=0:readb$:bl=peek(65):bh=peek(66):zl=peek(63):zh=peek(64):l$=left$(b$,3):restore
  3. 32 op$="0":h$=mid$(b$,5,1):l=len(b$):fori=1to56:readv$:on(l$=left$(v$,3))+2goto33:next:goto40
  4. 33 z$="":poke65,dl:poke66,dh:fori=6tol:on-(l<6)goto35:z$=mid$(b$,i,1):h=asc(z$)
  5. 34 ifh>47thenifh<71thenh$=h$+" ":op$=op$+z$:z$=""
  6. 35 h$=h$+z$:next:fori=1to12:readaf$:on(h$=af$)+2goto36:next:goto40
  7. 36 z=z+2:h=asc(mid$(v$,z,1)):z=z-(h>80):f=f+1-(h>80)*(h-80):on-(f>i)goto 40
  8. 37 on-(i>f)goto36:m$=mid$(v$,z,2):h=asc(m$):pokepz,(h-65)*16+asc(right$(m$,1))-65
  9. 38 printpz,b$:pz=pz+1:fori=1tolen(op$):h=asc(mid$(op$,i,1))-48:d=d*16+h+(h>16)*7:next
  10. 39 g=int(d/256):pokepz,d-g*256:pokepz+1,g:pz=pz+int(len(op$)/2):poke65,bl:poke66,bh:goto31
  11. 40 print" syntax error in";zl+zh*16:end:dataldaqkjknkflnljlflbkbs,starinifjnjjjfjbibs
  12. 41 dataldxqkckokgqloslgr,stxrioigujgr,ldyqkakmkelmqleu,styrimierjeu,incrooogpoqpgu
  13. 42 datadecrmomgnoqngu,jsrrcay,jmpremxgm,adcqgjgngfhnhjhfhbgbs,sbcqojonofpnpjpfpbobs
  14. 43 datainxoi\,inymi\,dexmk\,deyii\,beqqpa[,bneqna[,bcsqla[,bccqja[,bmiqda[,bplqba[
  15. 44 dataandqcjcncfdndjdfdbcbs,oraqajanafbnbjbfbbabs,eorqejeneffnfjfffbebs,bitrcmcex
  16. 45 datacmpqmjmnmfnnnjnfnbmbs,cpxqoaomoex,cpyqmammmex,bvsqha[,bvcqfa[,rtsga\,rtiea\
  17. 46 datataxkk\,txaik\,tayki\,tyaji\,clcbi\,secdi\,cldni\,sedpi\,clifi\,seihi\,clvli\
  18. 47 dataphaei\,plagi\,phpai\,plpci\,txsjk\,tsxlk\,brkaa\,nopok\,aslraoagboqbgsakq
  19. 48 datalsrreoegfoqfgsekq,rolrcocgdoqdgsckq,rorrgogghoqhgsgkq,"",#$  ,$    ,"$  "
  20. 49 data"$    ,x","$    ,y","$  ,x","($  ),y","($  ,x)","$  ,y",a,($    )
  21.